home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / circle.bas < prev    next >
BASIC Source File  |  1992-05-06  |  286b  |  14 lines

  1. 5     scnclr
  2. 10    for i% = 0 to 90
  3. 20    peno (i% mod 12) + 3
  4. 25    j% = i%*2
  5. 30    circle (160,95),i%
  6. 40    next
  7. 190   ask rgb 3, r%,g%,b%
  8. 200   for i% = 15 to 3 step -1
  9. 210   ask rgb i%, r1%,g1%,b1%
  10. 220   rgb i% ,r%,g%,b%
  11. 230   r%=r1% : b% = b1% : g% = g1%
  12. 240   next
  13. 250   goto 190
  14.